Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/BUS/N-Z/wordrefer.sea/Word Reference/WordRef Stack 1.2/stack.txt

Text File | 1992-04-14 | 4KB | 140 lines

-- stack: in.2
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 14
-- first background id: 2780
-- card count: 14
-- first card id: 13860
-- list block id: 4617
-- print block id: 36708
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 59072 bytes
-- stack block size: 7168 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on closeStack
  visual iris close
  pass closeStack
end closeStack

on openCard
  if the short name of this card is not "Instruction" then
    put "Card no." && max(1,the number of this cd - 14) && "of" && the number of cds - 14 into bg fld "Status"
  end if
  pass openCard
end openCard

on newBackground type
  lock screen
  push cd
  go next cd of bg type
  put the cmdKey is up and the optionKey is up and the shiftKey is up into makeNew
  if makeNew then doMenu "New Card"
  unlock screen
  if makeNew then tabKey
end newBackground

on showComments
  lock screen
  show bg btn "Comments"
  show bg btn "commentsGoAway"
  show bg fld "comments"
  unlock screen with barn door open
  select after text of bg fld "comments"
end showComments

on hideComments
  if the visible of bg fld "comments" then
    lock screen
    hide bg fld "comments"
    hide bg btn "Comments"
    hide bg btn "commentsGoAway"
    unlock screen with barn door close
  end if
end hideComments

on showOtherFields
  lock screen
  show bg btn "Other Fields"
  show bg btn "otherFieldsGoAway"
  show bg fld "otherFields"
  unlock screen with barn door open
  select after text of bg fld "otherFields"
end showOtherFields

on hideOtherFields
  if the visible of bg fld "otherFields" then
    lock screen
    hide bg fld "otherFields"
    hide bg btn "Other Fields"
    hide bg btn "otherFieldsGoAway"
    unlock screen with barn door close
  end if
end hideOtherFields

on CheckRequired stop
  if bg fld 1 is not empty and bg fld "otherFields" is empty then
    repeat with i=2 to stop
      if bg fld i is empty then
        beep
        answer "You should fill in all the required fields." with "OK"
        exit CheckRequired
      end if
    end repeat
  end if
end CheckRequired